home *** CD-ROM | disk | FTP | other *** search
- ; *******************************************************
- ; Example 1 - Create a word window, open a document,
- ; then read all available document properties by index
- ; *******************************************************
- ;
- #include <Word.au3>
- $oWordApp = _WordCreate (@ScriptDir & "\Test.doc")
- $oDoc = _WordDocGetCollection ($oWordApp, 0)
- For $i = 1 To 30
- ConsoleWrite("Property Index " & $i & " - " & _WordDocPropertyGet ($oDoc, $i) & @CR)
- Next
-
- ; *******************************************************
- ; Example 2 - Create a word window, open a document,
- ; then read the title, subject, and author properties by name.
- ; *******************************************************
- ;
- #include <Word.au3>
- $oWordApp = _WordCreate (@ScriptDir & "\Test.doc")
- $oDoc = _WordDocGetCollection ($oWordApp, 0)
- ConsoleWrite("Title - " & _WordDocPropertyGet ($oDoc, "Title") & @CR)
- ConsoleWrite("Subject - " & _WordDocPropertyGet ($oDoc, "Subject") & @CR)
- ConsoleWrite("Author - " & _WordDocPropertyGet ($oDoc, "Author") & @CR)